home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_4898_doBlacksCSTR < prev    next >
Text File  |  1994-09-21  |  392b  |  11 lines
  1. global tct
  2. if number of words in fld "verticals"=0 then
  3. get (number of this cd-tct)& return
  4. put offset(it,fld "blacked cards") into hf
  5. get char 1 to hf of fld "blacked cards"
  6. delete line numLns(it) of fld "blacked cards"
  7. else
  8. if number of this cd-tct&return is not in fld "blacked cards"
  9. then put number of this cd-tct&return after fld "blacked cards"
  10. sort fld "blacked cards" numeric
  11. end if